object QuickActForm: TQuickActForm Left = 286 Top = 180 BorderIcons = [biSystemMenu, biMinimize] BorderStyle = bsSingle Caption = 'Quick action start' ClientHeight = 492 ClientWidth = 448 Color = clBtnFace Constraints.MinHeight = 519 Constraints.MinWidth = 454 ParentFont = True OldCreateOrder = False Position = poScreenCenter OnClose = FormClose OnCreate = FormCreate OnDestroy = FormDestroy PixelsPerInch = 96 TextHeight = 13 object Bevel3: TBevel Left = 76 Top = 8 Width = 365 Height = 5 Shape = bsBottomLine end object Bevel1: TBevel Left = 0 Top = 448 Width = 448 Height = 3 Align = alBottom Shape = bsBottomLine end object lbActPrms: TLabel Left = 4 Top = 4 Width = 81 Height = 13 Caption = 'Action params' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False end object Panel1: TPanel Left = 0 Top = 451 Width = 448 Height = 41 Align = alBottom BevelOuter = bvNone TabOrder = 0 DesignSize = ( 448 41) object btOk: TElPopupButton Left = 210 Top = 8 Width = 113 Height = 25 DrawDefaultFrame = False Caption = 'OK' TabOrder = 0 OnClick = btOkClick Anchors = [akRight, akBottom] end object btCancel: TElPopupButton Left = 330 Top = 8 Width = 113 Height = 25 DrawDefaultFrame = False Caption = 'Cancel' TabOrder = 1 OnClick = btCancelClick Anchors = [akRight, akBottom] end object btHelp: TElPopupButton Left = 8 Top = 8 Width = 113 Height = 25 ImageIndex = 14 UseImageList = True Images = TrayForm.ilMain DrawDefaultFrame = False Caption = 'Help' TabOrder = 2 OnClick = btHelpClick Anchors = [akLeft, akBottom] end object btFixOk: TElPopupButton Left = 138 Top = 8 Width = 47 Height = 25 DrawDefaultFrame = False ModalResult = 1 Caption = 'OK' TabOrder = 3 Visible = False Anchors = [akRight, akBottom] end end object Panel2: TPanel Left = 1 Top = 18 Width = 440 Height = 350 BevelOuter = bvNone Constraints.MinHeight = 350 Constraints.MinWidth = 440 FullRepaint = False TabOrder = 1 end object Panel3: TPanel Left = 0 Top = 369 Width = 448 Height = 79 Align = alBottom BevelOuter = bvLowered BorderStyle = bsSingle Color = clBtnShadow TabOrder = 2 DesignSize = ( 444 75) object lbTimeToStart: TLabel Left = 9 Top = 8 Width = 58 Height = 13 Caption = 'Time to start' Color = clBtnShadow Font.Charset = DEFAULT_CHARSET Font.Color = clWindow Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentColor = False ParentFont = False end object dcTimeToStart: TElPageControl Left = 12 Top = 24 Width = 425 Height = 49 Flat = True ShowBorder = False ShowTabs = False Style = etsNetTabs TabIndex = 0 HotTrackFont.Charset = DEFAULT_CHARSET HotTrackFont.Color = clBlue HotTrackFont.Height = -11 HotTrackFont.Name = 'MS Sans Serif' HotTrackFont.Style = [] ActivePage = dcOnce ActiveTabFont.Charset = DEFAULT_CHARSET ActiveTabFont.Color = clWindowText ActiveTabFont.Height = -11 ActiveTabFont.Name = 'MS Sans Serif' ActiveTabFont.Style = [] ParentColor = False TabOrder = 0 UseXPThemes = False DockOrientation = doNoOrient object dcOnce: TElTabSheet PageControl = dcTimeToStart Caption = 'DCPage2' Color = clBtnShadow object lbOnceAt: TLabel Left = 12 Top = 14 Width = 10 Height = 13 Caption = 'At' FocusControl = teOnceAt Font.Charset = DEFAULT_CHARSET Font.Color = clWindow Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False end object lbOnceOn: TLabel Left = 216 Top = 14 Width = 14 Height = 13 Caption = 'On' FocusControl = deOnceOn Font.Charset = DEFAULT_CHARSET Font.Color = clWindow Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False end object teOnceAt: TElDateTimePicker Left = 116 Top = 10 Width = 89 Height = 21 Format = edfLongTime FormatString = 'c' DateTime = 38809.693713101800000000 Flat = True CalendarLineColorDark = clWindow UseSystemStartOfWeek = False WeekEndDays = [Sun, Sat] MinDate = -693593.000000000000000000 MaxDate = 999999.000000000000000000 ButtonWidth = 17 LineBorderActiveColor = clBlack LineBorderInactiveColor = clBlack ButtonThinFrame = False UnassignedChar = ' ' TranslateDays = True CalendarHolidayColor = clBlack AutoAdvance = True DockOrientation = doNoOrient ParentColor = False TabOrder = 0 TabStop = True end object deOnceOn: TElDateTimePicker Left = 240 Top = 10 Width = 114 Height = 21 Format = edfShortDate FormatString = 'c' DateTime = 38809.693713287000000000 Flat = True ShowPopupCalendar = True CalendarLineColorDark = clWindow StartOfWeek = 1 UseSystemStartOfWeek = False WeekEndDays = [Sun, Sat] MinDate = -693593.000000000000000000 MaxDate = 999999.000000000000000000 ButtonWidth = 17 LineBorderActiveColor = clBlack LineBorderInactiveColor = clBlack ButtonVisible = False ButtonThinFrame = False UnassignedChar = ' ' TranslateDays = True CalendarHolidayColor = clBlack AutoAdvance = True DockOrientation = doNoOrient ParentColor = False TabOrder = 1 TabStop = True end end object dcNow: TElTabSheet PageControl = dcTimeToStart Caption = 'DCPage3' Color = clBtnShadow Visible = False end object dcAfter: TElTabSheet PageControl = dcTimeToStart Caption = 'DCPage1' Color = clBtnShadow Visible = False object lbThePeriod: TLabel Left = 8 Top = 12 Width = 85 Height = 13 Caption = 'The period of time' FocusControl = frAfter.edsHour Font.Charset = DEFAULT_CHARSET Font.Color = clWindow Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False end inline frAfter: TTimePartsFrame Left = 112 Top = 7 Width = 289 Height = 26 Constraints.MinWidth = 286 TabOrder = 0 TabStop = True ExplicitLeft = 112 ExplicitTop = 7 ExplicitWidth = 289 ExplicitHeight = 26 inherited mxFlatLabel1: TLabel Width = 32 ExplicitWidth = 32 end inherited mxFlatLabel2: TLabel Width = 27 ExplicitWidth = 27 end inherited mxFlatLabel3: TLabel Width = 28 ExplicitWidth = 28 end end end end object cbRunTask: TElComboBox Left = 128 Top = 4 Width = 281 Height = 21 Cursor = crIBeam Items.Strings = ( 'Now' 'Once' 'After some time') Style = csDropDownList ItemHeight = 13 OnChange = cbRunTaskChange Flat = True LineBorderActiveColor = clBlack LineBorderInactiveColor = clBlack TabOrder = 1 ParentColor = False Anchors = [akLeft, akTop, akRight] end end end